1 POKE55,0:POKE56,64:CLR:A$="":POKE53281,0:POKE53280,0
2 DV=PEEK(186):IFDV<8THENDV=8
3 GOSUB60000:REM GOTO7
4 SYS57812"UNPACKER.89",DV,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
5 SYS57812"INPUT ANY.O",DV,0:POKE780,0:POKE781,60:POKE782,3:SYS65493
6 IP=828:UN=51456:HG=51459
7 GOSUB1000
8 CL$="                                      "
12 DIMG$(500)
27 P=1:PT=0:E=1
28 REM GOTO100
30 OPEN3,DV,3,"T.WALT III"
32 FORI=0TO1
35 SYS828,3,40:H=H+1:I=ST
37 G$(PT*19+H)=A$:IFH=19THENPT=PT+1:H=0
38 NEXT:CLOSE3:PT=PT+1
40 SYSHG
100 POKE53281,9:POKE53280,9:PRINT"[147]   [215][193][204][212]'[211] [215][207][210][203][211][200][207][208] [201][201][201]"TAB(31)"[150] OF"PT
101 PRINT"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
102 FORI=1TO20:PRINT"[221]"SPC(38)"[221]";:NEXT
103 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
104 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
105 POKE214,22:PRINT:PRINT"[150]  ([206][150])EXT  ([208][150])REVIOUS  ([198][150])IRST  ([204][150])AST"
106 PRINT"  (1[150]) THROUGH (7[150]) FOR PICTURE  ([209][150])UIT[158]"
108 PRINT""TAB(28)"   [157][157][157]"P"[158]"
110 FORJ=ETOE+19
120 PRINT""G$(J)
130 NEXT
150 GETA$:IFA$=""THEN150
160 IFA$>="1"ANDA$<="7"THEN200
165 IFA$=""ORA$="N"THENIFP<PTTHENP=P+1:E=E+19:GOTO195
170 IFA$="[145]"ORA$="P"THENIFP>1THENP=P-1:E=E-19:GOTO195
175 IFA$="[157]"ORA$="F"THENE=1:P=1:GOTO195
180 IFA$=""ORA$="L"THENE=(PT-1)*19+1:P=PT:GOTO195
185 IFA$="Q"THEN400
190 GOTO150
195 PRINT"[145][145]":FORK=1TO20:PRINTCL$"[145][145]":NEXT:GOTO108
200 IFA$=D$THEN250
210 D$=A$
220 PRINT:PRINTCL$:PRINTCL$"[145][145][145]"
230 SYS57812CHR$(ASC(A$)+16),DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
250 POKE251,64:POKE252,224
260 POKE253,204
270 PRINT"[147]";:SYSUN:SYSHG:POKE53280,0
280 POKE198,0
290 GETA$:IFA$=""THEN290
295 SYSHG:GOTO100
299 GOTO299
400 POKE214,22:PRINT:PRINTCL$:PRINTCL$"[145][145]"
405 PRINT"        [209]UIT[150] TO [204][207][193][196][211][212][193][210]? (Y[150]/N[150])"
410 GETA$:IFA$<>"Y"ANDA$<>"N"THEN410
420 IFA$="N"THEN105
430 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%:CLOSE15
440 IFER%<>63THENPRINT"[147]":END
445 POKE646,PEEK(53281)
450 PRINT"[147]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
460 PRINT"RUN"
470 POKE631,13:POKE632,13:POKE198,2:END
1000 SYS57812"LOGO",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
1010 POKE251,64:POKE252,224
1020 POKE253,204
1030 PRINT"[147]";:SYSUN:SYSHG:POKE53280,0
1050 RETURN
10000 OPEN15,8,15,"S0:WALT'S 3":CLOSE15:SAVE"WALT'S 3",8:END
60000 PRINT"[147][129]         [193]N [150][207]UTHOUSE [129][208]RODUCTION"
60005 B9$="                                      "
60010 POKE214,14:PRINT:PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
60020 FORI=0TO7:PRINTB9$:NEXT:PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 B9$(0)="[215][193][204][212]'[211] [215][207][210][203][211][200][207][208] [201][201][201]"
60040 B9$(1)="BY [215]ALT [200]ARNED"
60050 B9$(2)="([195]) 1991 BY [211]OFTDISK, [201]NC."
60060 B9$(3)="[208]UBLISHED ON [204][207][193][196][211][212][193][210] #84"
60070 B9$(4)="[211]UBSCRIPTIONS 1-800-831-2694"
60080 B9$(5)="[193]LL [210]IGHTS [210]ESERVED"
60090 POKE214,16:PRINT:FORI=0TO5:PRINTTAB(20-(LEN(B9$(I))/2))""B9$(I):NEXT
60099 RETURN